(defun c:slent ( / SEL1)
  (setq co1 colr co2 colra co3 colri li1 llt li2 ltyp mg1 mjrg mn1 prod md1 modf)
  (setq colr nil colra nil colri nil llt nil ltyp nil mjrg nil prod nil modf nil)
  (if sel1 (setq its (entget(car sel1)))
    (progn
      (setq it (entsel "\nSelect Entity for Layer. "))
      (setq its (entget(car it)))
    );progn
  );if
  (setq clayr (cdr(assoc 8 its)))
  (setvar "clayer" clayr)
  (setq mjrg (substr clayr 1 1)
        llt (substr clayr 2 1)
        prod (substr clayr 3 4)
;        colr (substr clayr 7 1)
  );setq
  (if (>(strlen clayr)7)
    (setq modf (substr clayr 8))
  );if
  (if c:mklayr nil (load"mklayr"))
  (c:mklayr)
  (setq nlayr (getvar"clayer"))
  (if (eq(strcat(substr nlayr 1 6)(substr nlayr 8))
         (strcat(substr clayr 1 6)(substr clayr 8))
      );eq
    nil
    (progn
      (setq colr co1 colra co2 colri co3 llt li1 ltyp li2 mjrg mg1 prod mn1 modf md1)
      (setvar "clayer" clayr)
      (prompt "\nNot a CLG Layer!  Use CORP Tools to Set CLG Layer! ")
    );progn
  );if
);defun